home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 27 / 027.d81 / magic menu (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  899 b   |  34 lines
  1. 10 rem  magic menu
  2. 20 poke53280,6:poke53281,13
  3. 30 print"[147][144]"spc(13)"[205]agic [205]enu"
  4. 35 print" [215]hat would you like to do?"
  5. 40 print"  1 ==> [210]un [196][201][195][197][160][205][193][195][200][201][206][197]"
  6. 42 print"  2 ==> [210]un [198][204][207][215][197][210] [208][207][215][197][210]"
  7. 44 print"  3 ==> [210]un [202][213][205][194][204][197][211]"
  8. 46 print"  4 ==> [210]un [195][200][193][210][199][197]"
  9. 47 print"  5 ==> [210]un [204][193][205][208][205][193][206]"
  10. 48 print"  6 ==> [210]un [196][201][211][203][160][196][197][198][193][213][204][212]"
  11. 49 print"  7 ==> [210]eturn to [204][207][193][196][211][212][193][210]"
  12. 50 gosub100:print"[215]hich? ";
  13. 52 poke198,0:wait198,1:geta$:a=val(a$)
  14. 54 ifa<1ora>7then52
  15. 55 :
  16. 60 printa$
  17. 62 ifa=1thenf$="dice machine"
  18. 64 ifa=2thenf$="flower power"
  19. 66 ifa=3thenf$="jumbles"
  20. 68 ifa=4thenf$="charge"
  21. 69 ifa=5thenf$="lampman"
  22. 70 ifa=6thenf$="disk default"
  23. 71 ifa=7thenf$="hello connect":open15,8,15,"r0:star=star":input#15,er:close15
  24. 72 :
  25. 73 ifa=7ander<>63thenend
  26. 80 print"[147]"spc(11)"[204]oading program..."
  27. 82 :
  28. 85 print"[153]loadf$,8":print"run":poke631,13:poke632,13:poke198,2:end
  29. 90 :
  30. 100 forx=1to40:a$=a$+"*":next:a$=left$(a$,40)
  31. 110 print""a$;:fori=1to23:print"*"spc(38)"*";:next:printleft$(a$,39)""
  32. 120 poke2023,42:poke56295,peek(55296)
  33. 130 return
  34.